COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.TITLE AL SYMBOLS
C00005 ENDMK
C⊗;
.TITLE AL SYMBOLS

GO = 1000	;Kernel start address
KERNEL = 1000
COMTAB = 14000		;Communication table
INTRP = 14100		;Beginning of the interpeter code
PCODE = 130000          ;Pseudo-code start address
ARMCOD = 64000		;Beginning of the arm code

RETRY = 46070	;Retry move address -- THIS CHANGES EACH TIME AL IS RE-ASSEMBLED

        .MACRO .INFO STR,NUM
                .PRINT /STR/
                .PRINT /NUM
/
        .ENDM

.IF2
.INFO <DID YOU CHANGE RETRY? - RETRY = >,\RETRY
.ENDC

DDT=130000		;Restart of DDT

;REGISTER DEFINITIONS

PC=%7			;program counter
R7=%7
SP=%6			;stack pointer
R6=%6

RF==%5			;Display pointer
R5=%5

R4=%4			;Saved across procedure calls
R3=%3			;Saved across procedure calls
R2=%2			;Saved across procedure calls
R1=%1			;temp
R0=%0			;temp
AC5==%5			;Temp Floating point register
AC4==%4			; "      "       "      "
AC3==%3			; "      "       "      "
AC2==%2			; "      "       "      "
AC1==%1			; "      "       "      "
AC0==%0			; "      "       "      "


       .MACRO	XX SYM			;Just gives SYM the next number.
	   .IFDF SYM
	       .IF1
	       .ERROR You are using SYM in two ways!!!
	       .ENDC
	   .ENDC
	    SYM == II
	    II == II+2
       .ENDM

	.MACRO MAKEOP CNAME, ANAME	;Compiler name, Address name
	XX	ANAME
	.ENDM

					;The interpreter operation table
	.INSRT  INTOPS.PAL[AL,HE]

.END KERNEL